home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / tlxutl10.zip / COMP.SLT < prev    next >
Text File  |  1991-01-25  |  343b  |  20 lines

  1. main()
  2. {
  3.  str fname[12];
  4.  int x, y;
  5.  x = vsavearea(21, 9, 58, 13);
  6.  box(21, 9, 58, 13, 3, 0, *16+);
  7.  box(22, 10, 57, 12, 0, 0, 
  8. *16+    );
  9.  pstraxy("Script to compile:", 23, 11, 
  10. *16+    );
  11.  y = getsxy(fname, 12, 44, 11, 
  12. *16+);
  13.  if (y == -1)
  14.   {
  15.    vrstrarea(x);
  16.    return;
  17.   }
  18.  run ("CS.EXE", FNAME, 1);
  19.  vrstrarea(x);
  20. }